/* makro.do --- 
 * 
 * Filename: makro.do
 * Description: 
 * Author: Kai Arzheimer
 * Maintainer: 
 * Created: Fri Nov 26 12:36:56 2010 (+0100)
 * Version: 
 * Last-Updated: Fri Dec 17 22:37:17 2010 (+0100)
 *           By: Kai Arzheimer
 *     Update #: 51
 * URL: 
 * Keywords: 
 * Compatibility: 
 * 
 */

/* Commentary: 
 * Hier geht es um Makro-Analsen
 * U.a. wollen wir Karten machen. Dazu muessen wir dbf-Dateien lesen und schreiben. Eigentlich sollte das �ber ODBC gehen, aber das ist kompliziert
 * Ich nehme am einfachsten stat/transfer
 */

/* Change log:
 * 
 * 
 */

/* Code: */

* Daten laden
use kerg-2009-subset.dta, clear


* Was fehlt:
*  - Region (inkl. Berlin Ost vs West
*	- Abweichungen vom nationalen Ergebnis per Wahlkreis (quasi-Pedersen)

/* *Nichw�hler definieren. Ungueltige landen auch dabei */
gen nichtzweit = wahlberechtigte - whler 
gen nichtzweitv = whlbvor - waehlerv 


* CDU/CSU zusammenfassen
replace cduzweit=csuzweit if cduzweit==.
replace cduzweitv=csuzweitv if cduzweitv==.

* Sonstige bestimmen
gen sonstzweit = whler - (spdzweit+cduzweit+fdpzweit+gruenzweit+pdszweit)
gen sonstzweitv = waehlerv - (spdzweitv+cduzweitv+fdpzweitv+gruenzweitv+pdszweitv)


* Wir machen das fuer alle Parteien als Schleife
foreach party in spd cdu fdp gruen pds sonst nicht {

*Zweitstimmenanteil an Wahlberechtigten 2009	
gen  `party'2wb =  `party'zweit/wahlberechtigte
lab var  `party'2wb "`PARTY' ZS/Wahlberechtigte"
*Gleiches Spiel f�r 2005
gen  `party'2wb05=  `party'zweitv / whlbvor
lab var  `party'2wb05 "`PARTY' ZS/Wahlberechtigte 05"

*Verh�lnis beider Werte

gen  `party'gain =  `party'2wb/  `party'2wb05
lab var  `party'gain "Verh�ltnis  `PARTY' Anteil 09/05"

*Das ganze noch mals prozentuale Ver�nderung
gen  `party'gainprcnt = ( `party'gain -1)*100
lab var  `party'gain "Prozentuale  `PARTY'-Ver�nderung 09/05"

* Absolute Ver�nderung
gen  `party'change =  `party'2wb -  `party'2wb05	

	
* Zweitstimmenanteil besser in Prozent 
replace 	`party'2wb = `party'2wb*100
replace 	`party'2wb05 = `party'2wb05*100
	}


*Das reicht f�r den Moment. Jetzt versuchen wir, Karten zu machen

ren nr wkr_nr

* Kombinieren mit Datentabelle aus Bundeswahlleiter-Karte


keep wkr_nr spd2wb-nichtchange

merge 1:m wkr_nr using /home/kai/Work/blauband2009/blauband2009-data/geo/karten/ori

* Speichern, anschlie�end mit stattransfer konvertieren


drop _merge

* Wichtig: DS muss in der Ursprungsreiehnfolge sortiert sein, sonst wird das nichts.
* D.h.: Im Shapefile sind Polygone und Daten �ber Reihenfolge verkn�pft - argh!
sort id
cd /home/kai/Work/blauband2009/blauband2009-data/geo/karten/
saveold /home/kai/Work/blauband2009/blauband2009-data/geo/karten/geometrie-wk-2009, replace

* Alte Version l�schen	
rm geometrie-wk-2009.dbf
	
shell  /home/kai/.wine/drive_c/stattransfer8/st.exe geometrie-wk-2009.dta geometrie-wk-2009.dbf


exit,clear	
/* makro.do ends here */
